(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     43639,       1121]
NotebookOptionsPosition[     33655,        906]
NotebookOutlinePosition[     34326,        932]
CellTagsIndexPosition[     34247,        927]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"b91fa884-336b-4a4b-87e2-f17dd1991a3c"],
 " | Modified in: ",
 Cell[" 1.5", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"d53a5b7a-dcde-4588-bddc-10fbbf4e3944"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"4a3c2b2b-3f66-473f-8a1a-8f2a28a3d56c"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"9ef83f86-5ce5-4af7-901b-5fefb19921bc"]
}], "History",
 CellChangeTimes->{{3.76379685816506*^9, 3.763796858671686*^9}},
 CellID->1247902091,ExpressionUUID->"75187dfe-a84a-431f-8056-50d40157864f"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"eeb93559-8e98-44cd-8099-e5b3a3a4519c"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"9ed9aedd-237b-4771-8999-86920d39aa98"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.74383662969003*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"99fc3284-5cfe-42b4-b6dd-7832f65fddba"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.743836630024425*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"d9e801eb-9853-4a9e-a498-aa717e66de81"],

Cell["MaXrd/ref/InterplanarSpacing", "Categorization",
 CellChangeTimes->{3.7438366303363047`*^9},
 CellLabel->"URI",ExpressionUUID->"46222329-0229-4eb4-98e0-58c9260ae192"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"59767a1f-3c06-41e9-a31d-6295370e0118"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"298d6f37-fc8a-4d26-8235-19e032d5b8cb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"72194e91-0646-4469-a303-fa8de51b7505"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"1cc804f8-6fdb-4993-9ef5-e474bc718390"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"9d1b2e0e-b6e8-4a1e-a8d3-6e6c33fec6ff"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"74c327fb-6c41-4e6d-8600-98db5a9955e3"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"c3656e0c-26a7-4beb-ba8a-7b77cf44fa72"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"9fe23be6-e967-4a24-97c5-7855ed2ea5f6"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"624270aa-b6a9-4dc3-bf92-c237b84a00ae"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"ce067eb2-3bdf-479b-88af-e61f25cfb762"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"50b9c196-0d17-44e9-afdc-f933e5a543f8"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"6008c12a-eaed-4ef7-8e02-4d2e41211e98"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"34740181-d58b-44cd-aef7-37a3335518a9"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"832e4449-4bb5-4e25-b3c6-aa7b22d15e96"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"39faa70d-d444-4863-b177-2e7121c98f4c"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"785bd26f-01ae-475d-a52c-4cea251f9909"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"16faaf40-3483-47d1-877a-366cf7e2bb4b"]
}, Closed]],

Cell[CellGroupData[{

Cell["InterplanarSpacing", "ObjectName",
 CellID->1224892054,ExpressionUUID->"a8d24c66-96f7-4f80-a12e-3da154b4eb00"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"4795e5ea-14c7-450f-8723-3a6687d3d34d"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["InterplanarSpacing",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/InterplanarSpacing"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["h", "TI"], ",", 
      StyleBox["k", "TI"], ",", 
      StyleBox["l", "TI"]}], "}"}]}], "]"}]], "InlineFormula",ExpressionUUID->
  "ce15f2f9-7e70-4ee4-aa6f-b366cbab259e"],
 " \[LineSeparator]calculates the distance between planes with Miller indices \
",
 Cell[BoxData[
  StyleBox["hkl", "TI"]], "InlineFormula",ExpressionUUID->
  "fcb5feb6-908d-4b4b-b4f2-2b13b7c27027"],
 " using the lattice parameters of ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "7123e297-7f9e-4ac4-933c-7a0a4c010eb5"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "efd323fd-e669-4e39-8333-8985ef0f8ad9"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["InterplanarSpacing",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/InterplanarSpacing"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["h", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["k", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["l", "TI"], 
         StyleBox["1", "TR"]]}], "}"}], ",", 
      StyleBox["\[Ellipsis]", "TR"], ",", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["h", "TI"], 
         StyleBox["n", "TI"]], ",", 
        SubscriptBox[
         StyleBox["k", "TI"], 
         StyleBox["n", "TI"]], ",", 
        SubscriptBox[
         StyleBox["l", "TI"], 
         StyleBox["n", "TI"]]}], "}"}]}], "}"}]}], "]"}]], "InlineFormula",
  ExpressionUUID->"accc3b91-a232-49bb-b378-25132846a239"],
 "\[LineSeparator]calculates the distance between planes with Miller indices ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["hkl", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "74b3dd2a-b6d0-4807-809d-2b5776c9fc1e"],
 " using the lattice parameters of ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "265576d3-c1c8-4dd0-8205-5543f88a3eee"],
 "."
}], "Usage",
 CellChangeTimes->{{3.715322202054763*^9, 3.715322211429776*^9}, {
  3.71532225225062*^9, 3.715322277624387*^9}, {3.715322579366148*^9, 
  3.715322677065386*^9}, {3.715327177168516*^9, 3.715327186202424*^9}},
 CellID->982511436,ExpressionUUID->"6146faf6-43e6-4a0d-a0c7-2edbc975de6b"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "6e6f6298-dafe-40f5-8d11-3896c7cf755c"],
 " may either be a label in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"900757e4-7bcf-4ad3-bb42-c5f7104f9fcb"],
 " or 3\[Times]3 crystal metric."
}], "Notes",
 CellChangeTimes->{{3.7149288476362057`*^9, 3.7149289014120293`*^9}},
 CellID->1067943069,ExpressionUUID->"306095a3-6c83-40f4-9313-7b6886fded99"],

Cell[TextData[{
 "Using the relation ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["d", "hkl"], "=", 
    FractionBox["1", 
     RowBox[{"\[LeftBracketingBar]", 
      OverscriptBox["h", "\[RightVector]"], "\[RightBracketingBar]"}]]}], 
   TraditionalForm]], "InlineMath",ExpressionUUID->
  "c1e97520-c63d-423b-9c42-2047cbb09093"],
 " and the inner product norm ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"\[LeftBracketingBar]", 
     OverscriptBox["h", "\[RightVector]"], "\[RightBracketingBar]"}], "=", 
    SqrtBox[
     RowBox[{"h", " ", "H", " ", "h"}]]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"3ad8d5dc-71c8-49c6-b84f-6efd9b0d3ad7"],
 ", with ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["h", "\[RightVector]"], "=", 
    RowBox[{"[", 
     RowBox[{"h", ",", "k", ",", "l"}], "]"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"0120d966-bff7-4226-a1de-9177e38b7f0f"],
 " and ",
 Cell[BoxData[
  FormBox["H", TraditionalForm]], "InlineMath",ExpressionUUID->
  "db0635de-50cc-42e2-822d-13222438e434"],
 " the reicporcal space metric, we obtain:"
}], "Notes",
 CellChangeTimes->{{3.71532357437895*^9, 3.715323617304287*^9}, {
  3.715323659006227*^9, 3.7153236981343317`*^9}, {3.715325562571548*^9, 
  3.715325565998899*^9}, {3.7153256515869904`*^9, 3.7153256530246477`*^9}, {
  3.7153256982499943`*^9, 3.715325698250251*^9}, {3.715326054415908*^9, 
  3.7153261920278473`*^9}, {3.7153263907391872`*^9, 3.715326500947652*^9}, {
  3.7153266139448566`*^9, 3.7153266218573112`*^9}},
 CellID->647353980,ExpressionUUID->"0227430f-58ff-4a2d-9f41-fca84d36ae06"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    SubscriptBox["d", 
     StyleBox["hkl",
      FontSlant->"Italic"]], "=", 
    FractionBox["1", 
     SqrtBox[
      RowBox[{"h", " ", "H", " ", "h"}]]]}],
   FontWeight->"Plain"], TraditionalForm]], "Input",
 CellChangeTimes->{{3.715323150533684*^9, 3.7153231619663982`*^9}, {
  3.715323195938689*^9, 3.7153232179938297`*^9}, {3.7153255981889668`*^9, 
  3.715325600971641*^9}, {3.715326077787027*^9, 3.715326083742672*^9}, {
  3.715326509364472*^9, 3.715326521001141*^9}},
 TextAlignment->Center,
 CellID->1764231069,ExpressionUUID->"4b99783f-e265-41ee-a175-02b71c1d13b3"],

Cell["Options:", "Notes",
 CellChangeTimes->{{3.71492897284485*^9, 3.714928975071747*^9}},
 CellID->676761489,ExpressionUUID->"de36cf35-9e22-4140-9562-c30b2aadb8db"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "9d611dc1-8e68-4454-b5e1-bfa1331b200b"], "\"\<Units\>\"", 
    ButtonBox["True",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/True"], Cell[TextData[{
     "whether to return output as ",
     Cell[BoxData[
      ButtonBox["Quantity",
       BaseStyle->"Link",
       ButtonData->"paclet:ref/Quantity"]], "InlineFormula",ExpressionUUID->
      "b40799c9-edd8-42f1-a154-d04a5d874add"]
    }], "TableText",ExpressionUUID->"8e4a1fec-7715-4e32-a533-0354d9d2d160"]}
  }]], "3ColumnTableMod",
 CellChangeTimes->{{3.714928980857592*^9, 3.7149290425465603`*^9}, {
  3.714929080497106*^9, 3.714929089510721*^9}},
 CellID->410498224,ExpressionUUID->"9cfb8efe-b839-41b2-881c-88f832904d88"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"d8a91671-fc84-41c5-aeac-c3b52b7c4697"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"7666e018-c828-4c32-9c41-7399afe47ade"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"efe6ea17-6c73-4510-9c79-ad8a9d409f0c"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"9f199ab4-2c21-4339-8966-03f3be47cc84"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"9e61eded-9038-4952-9cee-ede83bf52508"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"fd3aff71-d31c-459f-a076-a52429f5e569"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"f28a6104-8eab-45b2-b5e8-3d3ced7b3dd6"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["BraggAngle",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/BraggAngle"]], "InlineFormula",
  ExpressionUUID->"d93c6f52-9233-4e8c-947c-38bbd4feae40"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["CrystalDensity",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/CrystalDensity"]], "InlineFormula",
  ExpressionUUID->"f88ce14d-0995-4fe4-bc77-56667194cb65"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetCrystalMetric",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetCrystalMetric"]], "InlineFormula",
  ExpressionUUID->"2b118130-5445-4175-a6aa-061981d678d0"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["InputCheck",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/InputCheck"]], "InlineFormula",
  ExpressionUUID->"012133c5-47db-4abb-a631-bdcd9f7f8bd9"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"851a7b69-081b-40b5-8af6-00287095a260"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$GroupSymbolRedirect",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$GroupSymbolRedirect"]], "InlineFormula",
  ExpressionUUID->"b08a362c-a115-4f15-bad4-5f2bf7a70d7b"]
}], "SeeAlso",
 CellChangeTimes->{{3.730145120850811*^9, 3.730145152095297*^9}, {
  3.73796847756782*^9, 3.737968477567957*^9}, {3.743730541412992*^9, 
  3.743730543955469*^9}, {3.743865462907866*^9, 3.743865462908339*^9}},
 CellID->929782353,ExpressionUUID->"4e74dc43-4cc9-4295-9f27-e41c8957c0c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"1ba3acc5-b141-4f79-a309-20f7cbf42d68"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"94ff2c9f-d002-48c2-8a09-1636a3d63846"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"b2b1f4f9-46e9-4aa4-819f-dec76d5db272"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterplanarSpacing", "[", 
  RowBox[{"\"\<Diamond\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7153227367309933`*^9, 3.7153227874439487`*^9}, {
  3.715322827540307*^9, 3.715322837472405*^9}},
 CellLabel->"In[1]:=",
 CellID->592273560,ExpressionUUID->"11f93fe5-d654-4f16-8fa5-53a9da6ae5f9"],

Cell[BoxData[
 TemplateBox[{
  "2.0594084101993952`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
   "\"Angstroms\""},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.71532276271832*^9, 3.715322787754712*^9}, {
   3.715322828209648*^9, 3.7153228381047077`*^9}, 3.715322868432269*^9, 
   3.7301450797212667`*^9},
 CellLabel->"Out[1]=",
 CellID->1165512048,ExpressionUUID->"be05b18f-65ed-4897-b764-90285d2152e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0e4b34ce-9be7-4f5b-b32f-e4a2740e69aa"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1545651133,ExpressionUUID->"3c57b5e4-1d92-47d7-a933-b9429c21ac5c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterplanarSpacing", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "0", ",", "4"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.715322708988242*^9, 3.715322715154049*^9}, {
  3.715322846499897*^9, 3.715322857460329*^9}, {3.718360380665738*^9, 
  3.718360381487864*^9}},
 CellLabel->"In[2]:=",
 CellID->11389200,ExpressionUUID->"51a82272-ea65-4b93-93b8-7c1b90e95aa1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "1.9201060379051986`","\"\[CapitalARing]\"",
     "\[ARing]ngstr\[ODoubleDot]ms","\"Angstroms\""},
    "Quantity"], ",", 
   TemplateBox[{
    "3.135520029936555`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
     "\"Angstroms\""},
    "Quantity"], ",", 
   TemplateBox[{
    "1.2143816857644059`","\"\[CapitalARing]\"",
     "\[ARing]ngstr\[ODoubleDot]ms","\"Angstroms\""},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{{3.715322857695363*^9, 3.715322871495014*^9}, 
   3.7183603852680492`*^9, 3.7301450807396927`*^9},
 CellLabel->"Out[2]=",
 CellID->1183763922,ExpressionUUID->"983ee7e0-8c9d-4908-a605-0b31691b0ca1"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"9929a941-568c-4e94-9327-4541c2e43cb7"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "cd69f989-7d66-4d74-ba2e-def1e2e58084"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"4535514a-32ab-43b2-8579-5531d2a52757"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterplanarSpacing", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.715314462143985*^9, 3.715314474570085*^9}, {
   3.7153145816567698`*^9, 3.715314606026444*^9}, {3.715314662942094*^9, 
   3.7153146634147987`*^9}, 3.715314840075097*^9, {3.715316273866448*^9, 
   3.7153162768005943`*^9}},
 CellLabel->"In[1]:=",
 CellID->1753174383,ExpressionUUID->"c6846add-3854-4b74-b9b9-eb13b820c091"],

Cell[BoxData[
 TemplateBox[{
  "1.637471931040485`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
   "\"Angstroms\""},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.7153144751360607`*^9, 3.715314490127452*^9}, {
   3.715314575676033*^9, 3.715314663686722*^9}, {3.7153148407885323`*^9, 
   3.7153148426138983`*^9}, 3.71531627706812*^9, 3.7153229490882807`*^9, 
   3.730145082857684*^9},
 CellLabel->"Out[1]=",
 CellID->1013901262,ExpressionUUID->"1832baed-44a3-4d4a-8e09-39189064ec29"]
}, Open  ]],

Cell["The lattice paramets of silicon:", "ExampleText",
 CellChangeTimes->{{3.715322966797699*^9, 3.7153229765746613`*^9}},
 CellID->201160253,ExpressionUUID->"0b4cc13b-c632-4bc4-83ef-4935a75b1da0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
   "a", ",", "b", ",", "c", ",", "\[Alpha]", ",", "\[Beta]", ",", 
    "\[Gamma]"}], "}"}], "=", 
  RowBox[{"GetLatticeParameters", "[", "\"\<Silicon\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.71531618771305*^9, 3.71531619207408*^9}, {
   3.715322924802023*^9, 3.7153229298541718`*^9}, 3.7379685069043083`*^9, {
   3.7437305858788433`*^9, 3.743730587348665*^9}},
 CellLabel->"In[2]:=",
 CellID->1222090407,ExpressionUUID->"e4382158-9fba-4683-884d-df98e215bfa8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "5.43088`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
     "\"Angstroms\""},
    "Quantity"], ",", 
   TemplateBox[{
    "5.43088`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
     "\"Angstroms\""},
    "Quantity"], ",", 
   TemplateBox[{
    "5.43088`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
     "\"Angstroms\""},
    "Quantity"], ",", 
   TemplateBox[{
    "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
     "\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
     "\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
     "\"AngularDegrees\""},
    "QuantityPostfix"]}], "}"}]], "Output",
 CellChangeTimes->{3.715316195208897*^9, 3.715322951475806*^9, 
  3.730145083617269*^9},
 CellLabel->"Out[2]=",
 CellID->1605159843,ExpressionUUID->"506d7438-cf9f-4658-8387-f0add46a0b60"]
}, Open  ]],

Cell["Check the result by using the formula for cubic systems:", "ExampleText",
 CellChangeTimes->{{3.715322880756339*^9, 3.715322909966666*^9}},
 CellID->1391074163,ExpressionUUID->"2198be38-2f92-4916-ad55-1afe278632b8"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    SubscriptBox["d", 
     StyleBox["hkl",
      FontSlant->"Italic"]], "=", 
    FractionBox["a", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["h", "2"], "+", 
       SuperscriptBox["k", "2"], "+", 
       SuperscriptBox["l", "2"]}]]]}],
   FontWeight->"Plain"], TraditionalForm]], "Input",
 CellChangeTimes->{{3.715323150533684*^9, 3.7153231619663982`*^9}, {
  3.715323195938689*^9, 3.7153232179938297`*^9}},
 TextAlignment->Center,
 CellID->2070137837,ExpressionUUID->"959c8cf1-b4e6-4caa-a95c-e68258bdf2fe"],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox["a", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["1", "2"], "+", 
    SuperscriptBox["3", "2"], "+", 
    SuperscriptBox["1", "2"]}]]]], "Input",
 CellChangeTimes->{{3.715316202329994*^9, 3.7153162866339283`*^9}, {
  3.715322943432966*^9, 3.715322943713871*^9}},
 CellLabel->"In[3]:=",
 CellID->102567700,ExpressionUUID->"9bd73143-9809-450c-aaae-7ca2d27f4ec2"],

Cell[BoxData[
 TemplateBox[{
  "1.637471931040485`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
   "\"Angstroms\""},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.7153162168781843`*^9, 3.715316229003529*^9}, {
   3.71531625950839*^9, 3.715316287154791*^9}, 3.715322951640286*^9, 
   3.7301450870252123`*^9},
 CellLabel->"Out[3]=",
 CellID->739902499,ExpressionUUID->"6b18f7eb-a414-40ae-b9cd-bc3e729b15ec"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "4cede31d-7fca-4d2e-96e1-50318cc90bca"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"909461ba-7312-4f72-babd-6027df14740e"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "c17e7aa3-1cf2-4f90-8b38-3f31bd36bcb7"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"69938ef8-2150-4f92-a9e0-b90343ba7859"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Units\"", "ExampleSubsection",ExpressionUUID->
   "4563ea79-0ea9-44bc-a3be-26ee823c17a1"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.715323251108942*^9, 3.715323252036775*^9}},
 CellID->1757724783,ExpressionUUID->"3be2820a-8e63-4442-a37a-0d34874e2c7e"],

Cell[TextData[{
 "The output is still in \[ARing]nstr\[ODoubleDot]ms, but it is no longer a \
",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Quantity"]], "InlineFormula",ExpressionUUID->
  "1dc33105-5f86-4514-a727-e7f4970b8d0d"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.7153234303416357`*^9, 3.7153235071906424`*^9}, {
  3.7153235383421707`*^9, 3.715323546321759*^9}},
 CellID->810139264,ExpressionUUID->"d5591ab0-6c4e-4bb7-bbae-ed87a2ca68c9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InterplanarSpacing", "[", 
  RowBox[{"\"\<Copper\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.715323254422586*^9, 3.715323270622266*^9}, {
  3.715323332003396*^9, 3.715323365919972*^9}, {3.7153234201368017`*^9, 
  3.7153234228819427`*^9}},
 CellLabel->"In[1]:=",
 CellID->999873575,ExpressionUUID->"d0a2aa66-5608-48ee-a212-07a3eacdf637"],

Cell[BoxData["2.555978881955013`"], "Output",
 CellChangeTimes->{3.715323366178421*^9, 3.715323423286477*^9, 
  3.730145097686894*^9},
 CellLabel->"Out[1]=",
 CellID->218171893,ExpressionUUID->"cc1d8165-83c8-47dc-a4f4-7ab3f771641b"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "80810f57-8f27-4d47-b670-8ed46827128c"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"fa7dcd74-d14f-4c70-9929-8461cc6c9bb7"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "7216a975-805a-404a-8753-197d1c5b25e3"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"e1b80daa-5247-47b6-9952-3b840dcd669f"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "6b2583c1-28cc-4d12-a131-ebb2a9da0639"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"b3947d9c-3b93-4839-81cb-6c45824b3984"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "104cede9-0b8c-4488-ab75-492978a24d77"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"92623bca-f62a-4de7-99aa-4ae183bef919"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "486e7590-47ba-405c-bba5-7898f89a158c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"f6045ffa-3b7e-49dc-abd8-f3d3969ccf4f"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "629de143-88b4-43b7-b7ed-a53292a2470a"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"30e1918f-c1b0-4011-87e1-61e1ac235b20"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"c751aa1d-fb49-4936-9984-4c0b4ece0d59"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.715322075170558*^9, 3.715322078883745*^9}},
 CellID->777428556,ExpressionUUID->"5fe31614-0548-44d9-b018-3b3c91f20f30"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "InterplanarSpacing"}], "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"\"\<Units\>\"", "\[Rule]", "True"}], "\[IndentingNewLine]", 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "InterplanarSpacing"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", "_", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.714926640095376*^9, 3.714926648623674*^9}, 
   3.715064183906497*^9, {3.715078876499865*^9, 3.715078880193625*^9}, {
   3.756713328817588*^9, 3.756713331283366*^9}, 3.756716315067555*^9},
 CellLabel->"In[783]:=",
 CellID->925945953,ExpressionUUID->"0cc86f81-d544-48ec-9c25-e090954519e4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"InterplanarSpacing", "[", 
   RowBox[{"input_", ",", "reflections_List", ",", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"hkl", ",", "H", ",", "d", ",", "h"}], "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"Check", " ", "reflection"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"hkl", "=", 
      RowBox[{"InputCheck", "[", 
       RowBox[{
       "reflections", ",", "\"\<Integer\>\"", ",", "\"\<WrapSingle\>\""}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Reciprocal", " ", "metric"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"H", "=", 
      RowBox[{"GetCrystalMetric", "[", 
       RowBox[{"input", ",", 
        RowBox[{"\"\<Space\>\"", "\[Rule]", "\"\<Reciprocal\>\""}]}], "]"}]}],
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Interplanar", " ", "distance"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"d", "=", 
      RowBox[{
       RowBox[{"Reap", "[", 
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"h", "=", 
            RowBox[{
            "hkl", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"Sow", "[", "\[IndentingNewLine]", 
            RowBox[{"1", "/", 
             RowBox[{"Sqrt", "[", 
              RowBox[{"h", ".", "H", ".", "h"}], "]"}]}], 
            "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Length", "@", "hkl"}]}], "}"}]}], "]"}], 
        "\[IndentingNewLine]", "]"}], "\[LeftDoubleBracket]", 
       RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Option", ":", " ", "Units"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"OptionValue", "[", "\"\<Units\>\"", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"d", "=", 
        RowBox[{"Quantity", "[", 
         RowBox[{"d", ",", "\"\<Angstroms\>\""}], "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"If", " ", "only", " ", "one", " ", "reflection"}], ",", " ", 
       RowBox[{"return", " ", "content"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "@", "d"}], "\[Equal]", "1"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"First", "@", "d"}], ",", "d"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.682241896337058*^9, 3.6822419009563293`*^9}, {
   3.6822421030731297`*^9, 3.682242104796829*^9}, {3.682242247634622*^9, 
   3.682242293608499*^9}, {3.6822423242774973`*^9, 3.6822424939877663`*^9}, {
   3.682242524871819*^9, 3.682242610095582*^9}, {3.6822426631468697`*^9, 
   3.682242849688897*^9}, {3.682242985123843*^9, 3.682243000592795*^9}, {
   3.682243032221999*^9, 3.682243042906146*^9}, {3.682243121993319*^9, 
   3.682243187533738*^9}, {3.6822433171568623`*^9, 3.682243318068676*^9}, {
   3.6822433533711243`*^9, 3.68224345949043*^9}, {3.682243499999116*^9, 
   3.682243500570818*^9}, {3.682243559642397*^9, 3.682243568303032*^9}, {
   3.682243656585619*^9, 3.682243807041559*^9}, {3.682243892622666*^9, 
   3.682243979341007*^9}, {3.682244011749632*^9, 3.682244092729911*^9}, {
   3.6822441869470167`*^9, 3.682244221175058*^9}, {3.68224427065597*^9, 
   3.682244283409008*^9}, {3.6822443160128517`*^9, 3.682244326447394*^9}, {
   3.682244392020493*^9, 3.682244400571671*^9}, {3.682244596208706*^9, 
   3.682244803339835*^9}, {3.682244951115906*^9, 3.6822449654470167`*^9}, {
   3.682247256239483*^9, 3.682247304444981*^9}, {3.682247343926553*^9, 
   3.682247361035624*^9}, {3.682247395780785*^9, 3.6822474984407682`*^9}, {
   3.6822475305652437`*^9, 3.682247636381772*^9}, {3.6822476807262373`*^9, 
   3.682247690229601*^9}, {3.682247723533629*^9, 3.682247825538166*^9}, {
   3.682247866195016*^9, 3.6822478768890457`*^9}, {3.682247927112714*^9, 
   3.682248080675892*^9}, {3.682248357004342*^9, 3.682248375626561*^9}, {
   3.6822486441315317`*^9, 3.682248669634107*^9}, 3.68224956936229*^9, 
   3.682262332986014*^9, {3.6822623719028997`*^9, 3.68226237223594*^9}, {
   3.682312281830681*^9, 3.6823123030407467`*^9}, {3.682323578349629*^9, 
   3.682323592418137*^9}, {3.6823237158461313`*^9, 3.682323721213748*^9}, 
   3.682327662602072*^9, {3.6824963506791697`*^9, 3.6824963547512217`*^9}, {
   3.682496400113083*^9, 3.682496493228437*^9}, 3.682677149488262*^9, {
   3.685082142306231*^9, 3.6850821530756807`*^9}, 3.685084035768195*^9, {
   3.68655238046353*^9, 3.686552426771611*^9}, {3.6865525950866337`*^9, 
   3.686552685595372*^9}, {3.686635545814003*^9, 3.686635612323032*^9}, {
   3.686645933806924*^9, 3.686646007894505*^9}, {3.686646064248117*^9, 
   3.68664607682882*^9}, {3.686655195368894*^9, 3.6866552343027163`*^9}, {
   3.6866553151103287`*^9, 3.686655409251244*^9}, {3.6866554490764103`*^9, 
   3.686655514039054*^9}, {3.686655580018355*^9, 3.686655635546473*^9}, {
   3.686655748745368*^9, 3.686655776590246*^9}, {3.714925556554666*^9, 
   3.714925578583651*^9}, {3.7149256217212152`*^9, 3.714925689133297*^9}, {
   3.7149258652268667`*^9, 3.714925953487383*^9}, {3.71492600096751*^9, 
   3.714926119019596*^9}, {3.714926175338132*^9, 3.714926196305581*^9}, 
   3.7149262352489967`*^9, {3.714926307824396*^9, 3.7149264095004387`*^9}, {
   3.714926450015284*^9, 3.7149265295624437`*^9}, {3.7149265755610447`*^9, 
   3.714926579417263*^9}, {3.714926655695353*^9, 3.714926765295703*^9}, {
   3.714927064423978*^9, 3.714927159155733*^9}, {3.7149272069557753`*^9, 
   3.7149276407442627`*^9}, {3.714927818589819*^9, 3.714927894002508*^9}, {
   3.715014199691877*^9, 3.7150142148573313`*^9}, {3.7150641849014177`*^9, 
   3.715064208336918*^9}, 3.715078883076619*^9, {3.715078913508091*^9, 
   3.715078913682675*^9}, {3.715079164837681*^9, 3.7150791802962923`*^9}, {
   3.7150792131352386`*^9, 3.715079215811734*^9}, {3.7150805829910393`*^9, 
   3.715080601633729*^9}, {3.7153143538431253`*^9, 3.715314619337658*^9}, {
   3.71531482604503*^9, 3.715314858601492*^9}, 3.717740920731542*^9, {
   3.730543614674137*^9, 3.730543615290286*^9}, {3.730544530561977*^9, 
   3.730544530964417*^9}, 3.73796846805212*^9, {3.758530050721332*^9, 
   3.758530055222497*^9}, {3.759519490947288*^9, 3.759519493049049*^9}, 
   3.7627930938182793`*^9, {3.763741064865443*^9, 3.7637411062861633`*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[786]:=",
 CellID->1707125909,ExpressionUUID->"5d4fa000-95f1-4f54-a59f-520cdfa38fe3"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[16618, 490, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"9929a941-568c-4e94-9327-4541c2e43cb7",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 34053, 920}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 668, 15, 24, "History",ExpressionUUID->"75187dfe-a84a-431f-8056-50d40157864f",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1251, 39, 123, 1, 29, "CategorizationSection",ExpressionUUID->"eeb93559-8e98-44cd-8099-e5b3a3a4519c",
 CellID->1122911449],
Cell[1377, 42, 134, 2, 30, "Categorization",ExpressionUUID->"9ed9aedd-237b-4771-8999-86920d39aa98",
 CellID->686433507],
Cell[1514, 46, 174, 3, 30, "Categorization",ExpressionUUID->"99fc3284-5cfe-42b4-b6dd-7832f65fddba",
 CellID->605800465],
Cell[1691, 51, 172, 3, 30, "Categorization",ExpressionUUID->"d9e801eb-9853-4a9e-a498-aa717e66de81",
 CellID->468444828],
Cell[1866, 56, 172, 2, 30, "Categorization",ExpressionUUID->"46222329-0229-4eb4-98e0-58c9260ae192"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2075, 63, 110, 1, 29, "KeywordsSection",ExpressionUUID->"59767a1f-3c06-41e9-a31d-6295370e0118",
 CellID->477174294],
Cell[2188, 66, 100, 1, 70, "Keywords",ExpressionUUID->"298d6f37-fc8a-4d26-8235-19e032d5b8cb",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2325, 72, 120, 1, 19, "TemplatesSection",ExpressionUUID->"72194e91-0646-4469-a303-fa8de51b7505",
 CellID->1872225408],
Cell[2448, 75, 149, 2, 70, "Template",ExpressionUUID->"1cc804f8-6fdb-4993-9ef5-e474bc718390",
 CellID->1562036412],
Cell[2600, 79, 137, 2, 70, "Template",ExpressionUUID->"9d1b2e0e-b6e8-4a1e-a8d3-6e6c33fec6ff",
 CellID->158391909],
Cell[2740, 83, 136, 2, 70, "Template",ExpressionUUID->"74c327fb-6c41-4e6d-8600-98db5a9955e3",
 CellID->1360575930],
Cell[2879, 87, 137, 2, 70, "Template",ExpressionUUID->"c3656e0c-26a7-4beb-ba8a-7b77cf44fa72",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3053, 94, 108, 1, 19, "DetailsSection",ExpressionUUID->"9fe23be6-e967-4a24-97c5-7855ed2ea5f6",
 CellID->307771771],
Cell[3164, 97, 118, 2, 70, "Details",ExpressionUUID->"624270aa-b6a9-4dc3-bf92-c237b84a00ae",
 CellID->670882175],
Cell[3285, 101, 124, 2, 70, "Details",ExpressionUUID->"ce067eb2-3bdf-479b-88af-e61f25cfb762",
 CellID->350963985],
Cell[3412, 105, 119, 2, 70, "Details",ExpressionUUID->"50b9c196-0d17-44e9-afdc-f933e5a543f8",
 CellID->8391405],
Cell[3534, 109, 124, 2, 70, "Details",ExpressionUUID->"6008c12a-eaed-4ef7-8e02-4d2e41211e98",
 CellID->3610269],
Cell[3661, 113, 116, 2, 70, "Details",ExpressionUUID->"34740181-d58b-44cd-aef7-37a3335518a9",
 CellID->401364205],
Cell[3780, 117, 116, 2, 70, "Details",ExpressionUUID->"832e4449-4bb5-4e25-b3c6-aa7b22d15e96",
 CellID->350204745],
Cell[3899, 121, 118, 2, 70, "Details",ExpressionUUID->"39faa70d-d444-4863-b177-2e7121c98f4c",
 CellID->732958810],
Cell[4020, 125, 133, 2, 70, "Details",ExpressionUUID->"785bd26f-01ae-475d-a52c-4cea251f9909",
 CellID->222905350],
Cell[4156, 129, 122, 2, 70, "Details",ExpressionUUID->"16faaf40-3483-47d1-877a-366cf7e2bb4b",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4315, 136, 116, 1, 63, "ObjectName",ExpressionUUID->"a8d24c66-96f7-4f80-a12e-3da154b4eb00",
 CellID->1224892054],
Cell[4434, 139, 2653, 75, 131, "Usage",ExpressionUUID->"6146faf6-43e6-4a0d-a0c7-2edbc975de6b",
 CellID->982511436],
Cell[7090, 216, 551, 13, 27, "Notes",ExpressionUUID->"306095a3-6c83-40f4-9313-7b6886fded99",
 CellID->1067943069],
Cell[7644, 231, 1614, 40, 54, "Notes",ExpressionUUID->"0227430f-58ff-4a2d-9f41-fca84d36ae06",
 CellID->647353980],
Cell[9261, 273, 625, 16, 51, "Input",ExpressionUUID->"4b99783f-e265-41ee-a175-02b71c1d13b3",
 CellID->1764231069],
Cell[9889, 291, 165, 2, 25, "Notes",ExpressionUUID->"de36cf35-9e22-4140-9562-c30b2aadb8db",
 CellID->676761489],
Cell[10057, 295, 759, 16, 27, "3ColumnTableMod",ExpressionUUID->"9cfb8efe-b839-41b2-881c-88f832904d88",
 CellID->410498224]
}, Open  ]],
Cell[CellGroupData[{
Cell[10853, 316, 112, 1, 44, "TutorialsSection",ExpressionUUID->"d8a91671-fc84-41c5-aeac-c3b52b7c4697",
 CellID->250839057],
Cell[10968, 319, 100, 1, 16, "Tutorials",ExpressionUUID->"7666e018-c828-4c32-9c41-7399afe47ade",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[11105, 325, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"efe6ea17-6c73-4510-9c79-ad8a9d409f0c",
 CellID->1268215905],
Cell[11246, 328, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"9f199ab4-2c21-4339-8966-03f3be47cc84",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[11396, 334, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"9e61eded-9038-4952-9cee-ede83bf52508",
 CellID->1584193535],
Cell[11519, 337, 104, 1, 16, "RelatedLinks",ExpressionUUID->"fd3aff71-d31c-459f-a076-a52429f5e569",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[11660, 343, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"f28a6104-8eab-45b2-b5e8-3d3ced7b3dd6",
 CellID->1255426704],
Cell[11773, 346, 1629, 40, 38, "SeeAlso",ExpressionUUID->"4e74dc43-4cc9-4295-9f27-e41c8957c0c4",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[13439, 391, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"1ba3acc5-b141-4f79-a309-20f7cbf42d68",
 CellID->38303248],
Cell[13554, 394, 101, 1, 16, "MoreAbout",ExpressionUUID->"94ff2c9f-d002-48c2-8a09-1636a3d63846",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[13692, 400, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"b2b1f4f9-46e9-4aa4-819f-dec76d5db272",
 CellID->880084151],
Cell[CellGroupData[{
Cell[14128, 415, 384, 8, 29, "Input",ExpressionUUID->"11f93fe5-d654-4f16-8fa5-53a9da6ae5f9",
 CellID->592273560],
Cell[14515, 425, 419, 9, 31, "Output",ExpressionUUID->"be05b18f-65ed-4897-b764-90285d2152e3",
 CellID->1165512048]
}, Open  ]],
Cell[CellGroupData[{
Cell[14971, 439, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"3c57b5e4-1d92-47d7-a933-b9429c21ac5c",
 CellID->1545651133],
Cell[CellGroupData[{
Cell[15239, 448, 617, 15, 29, "Input",ExpressionUUID->"51a82272-ea65-4b93-93b8-7c1b90e95aa1",
 CellID->11389200],
Cell[15859, 465, 698, 18, 35, "Output",ExpressionUUID->"983ee7e0-8c9d-4908-a605-0b31691b0ca1",
 CellID->1183763922]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16618, 490, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"9929a941-568c-4e94-9327-4541c2e43cb7",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[16798, 496, 242, 5, 33, "ExampleSection",ExpressionUUID->"4535514a-32ab-43b2-8579-5531d2a52757",
 CellID->1293636265],
Cell[CellGroupData[{
Cell[17065, 505, 510, 10, 29, "Input",ExpressionUUID->"c6846add-3854-4b74-b9b9-eb13b820c091",
 CellID->1753174383],
Cell[17578, 517, 494, 10, 31, "Output",ExpressionUUID->"1832baed-44a3-4d4a-8e09-39189064ec29",
 CellID->1013901262]
}, Open  ]],
Cell[18087, 530, 198, 2, 22, "ExampleText",ExpressionUUID->"0b4cc13b-c632-4bc4-83ef-4935a75b1da0",
 CellID->201160253],
Cell[CellGroupData[{
Cell[18310, 536, 517, 11, 29, "Input",ExpressionUUID->"e4382158-9fba-4683-884d-df98e215bfa8",
 CellID->1222090407],
Cell[18830, 549, 1063, 30, 35, "Output",ExpressionUUID->"506d7438-cf9f-4658-8387-f0add46a0b60",
 CellID->1605159843]
}, Open  ]],
Cell[19908, 582, 221, 2, 22, "ExampleText",ExpressionUUID->"2198be38-2f92-4916-ad55-1afe278632b8",
 CellID->1391074163],
Cell[20132, 586, 566, 17, 49, "Input",ExpressionUUID->"959c8cf1-b4e6-4caa-a95c-e68258bdf2fe",
 CellID->2070137837],
Cell[CellGroupData[{
Cell[20723, 607, 386, 10, 52, "Input",ExpressionUUID->"9bd73143-9809-450c-aaae-7ca2d27f4ec2",
 CellID->102567700],
Cell[21112, 619, 417, 9, 31, "Output",ExpressionUUID->"6b18f7eb-a414-40ae-b9cd-bc3e729b15ec",
 CellID->739902499]
}, Open  ]]
}, Open  ]],
Cell[21556, 632, 265, 5, 33, "ExampleSection",ExpressionUUID->"909461ba-7312-4f72-babd-6027df14740e",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[21846, 641, 244, 5, 21, "ExampleSection",ExpressionUUID->"69938ef8-2150-4f92-a9e0-b90343ba7859",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[22115, 650, 318, 6, 24, "ExampleSubsection",ExpressionUUID->"3be2820a-8e63-4442-a37a-0d34874e2c7e",
 CellID->1757724783],
Cell[22436, 658, 493, 12, 25, "ExampleText",ExpressionUUID->"d5591ab0-6c4e-4bb7-bbae-ed87a2ca68c9",
 CellID->810139264],
Cell[CellGroupData[{
Cell[22954, 674, 488, 10, 29, "Input",ExpressionUUID->"d0a2aa66-5608-48ee-a212-07a3eacdf637",
 CellID->999873575],
Cell[23445, 686, 232, 4, 25, "Output",ExpressionUUID->"cc1d8165-83c8-47dc-a4f4-7ab3f771641b",
 CellID->218171893]
}, Open  ]]
}, Open  ]],
Cell[23704, 694, 247, 5, 24, "ExampleSubsection",ExpressionUUID->"fa7dcd74-d14f-4c70-9929-8461cc6c9bb7",
 CellID->1295379749]
}, Open  ]],
Cell[23966, 702, 248, 5, 33, "ExampleSection",ExpressionUUID->"e1b80daa-5247-47b6-9952-3b840dcd669f",
 CellID->258228157],
Cell[24217, 709, 259, 5, 21, "ExampleSection",ExpressionUUID->"b3947d9c-3b93-4839-81cb-6c45824b3984",
 CellID->2123667759],
Cell[24479, 716, 252, 5, 21, "ExampleSection",ExpressionUUID->"92623bca-f62a-4de7-99aa-4ae183bef919",
 CellID->1305812373],
Cell[24734, 723, 257, 5, 21, "ExampleSection",ExpressionUUID->"f6045ffa-3b7e-49dc-abd8-f3d3969ccf4f",
 CellID->1653164318],
Cell[24994, 730, 249, 5, 21, "ExampleSection",ExpressionUUID->"30e1918f-c1b0-4011-87e1-61e1ac235b20",
 CellID->589267740],
Cell[CellGroupData[{
Cell[25268, 739, 372, 8, 21, "ExampleSection",ExpressionUUID->"5fe31614-0548-44d9-b018-3b3c91f20f30",
 CellID->777428556],
Cell[25643, 749, 974, 22, 151, "Input",ExpressionUUID->"0cc86f81-d544-48ec-9c25-e090954519e4",
 InitializationCell->False,
 CellID->925945953],
Cell[26620, 773, 7007, 129, 538, "Input",ExpressionUUID->"5d4fa000-95f1-4f54-a59f-520cdfa38fe3",
 InitializationCell->False,
 CellID->1707125909]
}, Closed]]
}, Open  ]]
}
]
*)

